home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aae.d64 / call.proc < prev    next >
Text File  |  2007-02-28  |  210b  |  10 lines
  1. 9000 //
  2. 9010 PROC CALL(FILENAME$) CLOSED
  3. 9020 PRINT CHR$(147),"NEW"
  4. 9030 PRINT CHR$(17),"CHAIN""",FILENAME$,""""
  5. 9040 POKE 631,19
  6. 9050 FOR I:=632 TO 634 DO POKE I,13
  7. 9060 POKE 198,4
  8. 9070 END 
  9. 9080 ENDPROC CALL
  10.